home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_2
/
sread100.zip
/
SREAD.QES
< prev
Wrap
Text File
|
1992-08-14
|
2KB
|
82 lines
!
! Sread Version 1.00 Sample Script File
! (C)opyright 1992 by D2Software
!
&NORMAL_ANSWERS = "SREAD.ANS"
&ADULT_ANSWERS = "ADULT.ANS"
$MAIN
;
;@X0B1: @X0ESelection for accessing our adult section
;@X0B2: @X0CExit back to the system
;
^MUL|$ADULT|$EXIT
$BOUNCE
;
^CLS
^JPP|$MAIN
$EXIT
^END
$ADULT
;
;@X0FThis information is used to gain access to our adult section.
;
^CHG|&ADULT_ANSWERS
^JMP|$QRETURN|@FIRST@, are you 18 years of age or older?
^GOSUB|$PERSONAL
^GOSUB|$ADDRESS
^JPP|$HAPPY
$HAPPY
;
^WRITEOFF
^JMP|$QRETURN|@FIRST@, are you happy with your answers?
^JPP|$QADJUST
$QADJUST
!
! This routine is used if you want to reset the file pointer without
! worrying about the details.
!
;@X0CAnswer file updated.
^ADJUST
^WRITEON
^JPP|$BOUNCE
$QRETURN
!
! This routine is used to "force" a return from a subroutine! This
! will update the file pointer.
!
;
;@X0CAnswer file was not updated.
^ABORT
^WRITEON
^JPP|$BOUNCE
$PERSONAL
;
;@X0B@FIRST@, we need to get your personal information. This information is
;@X0Bto cover our butts, and will remain totally confidential. Failure to
;@X0Bprovide this information will prevent you from having access to this
;@X0Bsection.
;
^RETURN
$ADDRESS
\$$______________________
Please enter your first name only:
Please enter your last name only:
;
%We need to know your street address. You may include up to 5 lines.
%A blank line will end the data entry.
^ASK|5
;
\(###) ###-####
Please enter your phone number as (XXX) XXX-XXXX:
^RETURN